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AMIGOS DEL 
AMSTRAD 


EDITORIAL 


Todos los meses, con la revista, pretendemos que 
sea una guía práctica, incluyendo gran variedad de 
programas para que puedas disfrutar mientras 
aprendes. 

Encontrarás programas que te mostrarán cómo 
construir imágenes de cualquier forma y a la vez 
utilizar el color. 

También verás cómo se usan los sprites y a diseñar 
tus propios caracteres. 

Otros programas te mostrarán cómo aplicar 
gráficos de alta resolución, a producir efectos 
sonoros y música. 

Diviértete. 
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pp Erre 


ES 


AS 
0 O 


EXPLICACIOR 
DE LOS PROGRAHAS 


JOE LOVE 


Deo REM PAE BAeYa UE 

30 REM ORO G.T.S. MKXXKX 

40 REM 

50 MOME O 

560 INE 0,0: TNK 1,26: INE 2,7: TNE 
70 PAPER O:BORTER O 

80 FEN 1 

90 ORIGIN 318,210 

100 FOR a=0 TO 2XxPI STEF P1/70 

110 PLOT 0,0,2 

120 DRAW 200XCOS(a) ,15OXSIN(a) 

130 TIRAWR 0,3OXSIN(a),3 

140 NEXT a 

150 PRINT CHR$(22)+CHR$(1); 

160 LOCATE 7,12 

170 PRINT "JOE LOVE" 

180 PRINT CHR+(22)+CHR$(0) ; 

190 INK 2,7,0:INK 3,0,18 

200 FOR a=1 TO 300:SOUNO 1,a,1,15:NEXT a 

210 TNK 2,18,7:INK 3,7,18 

220 FOR a=300 TO 1 STEF -2:SOUND 1,a,1:SOUND 2,aX2,1:NEXT a 
230 INK 2,7: NE 23,18 

240 FOR a=1 TO SOO:NEXT a 

250 FOR a=0 TO SOsFRINT CHR$(7):FOR b=1 TO SO:NEXT b:NEXT a 


y 


,18 


4 - AMIGOS DEL AMSTRAD - 1986 


mn Y fa Ya Ya Ya Vo a V a nm ta nn  v Ya Ta Y Ya Ya, fa Ya $3 


o 


260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 


410 


ao 
430 
440 
4530 
450 
47O 
480 
490 
500 
510 
20 
530 
540 
TEF 
S50O 
560 
570 
580 
590 
600 
610 
620 
630 
640 
630 
660 
670 
680 
690 
700 
710 
720 
730 
740 
730 
760 
770 
780 
790 
800 
810 
820 
830 
840 


MOME 1 
GOTO 320 
FRINT TAR(ZO-LEN (a+)/2):FOR a=1 TO LEN(az) 


bé=MIDF(at,a,1) :PRINT bey:1F b$2>" " THEN FRINT CHR$(7); 
NEXT a 
PRINT:PRINT:FOR a=1 TO 200:NEXT a:RETURN 


REM XxX INICIO MEL PROGRAMA XXX 

ab="<%%<% JOE LOVE >>>" :GOSUB 280 

PRINT:A$="AYUDIA A JOE A RECUPERAR" :GOSUB 280 

As="LOS CORAZONES PERDIDOS, NECESARIOS" :GOSUB 280 
Af="PARA CONSEGUIR EL AMOR DE SU CHICA." :GOSUR 280 
A$="PERO TEN CUIDADO CON LAS HIENAS" :GOSUB 280 : 
PRINT:A$="USA: TECLADO (0.A.D0.F) O JOYSTICK" :GOSUB 280 
PRINT:A+="FULSA UNA TECLA FARA EMPEZAR" :GOSUB 280 
Af=INKEYS$:1F INEEYS="" THEN 400 

PRINT OCHR$(7) 5 

GOSUB 950 :GOSUE 850 

Y=3 

MODE 1: INE 0,26: TNK 1,O:INK 2,15: INkK 3,2 

PAPER O:BORDER 26:CLS 

WINTIOW 1,40,4,25:PEN 1:CLS 

WINTION +4$1,1,40,1,3:PAPER$1,2:PENH1,0:0LSH1 

GOSUE 830 

RESTORE 740:1=40000 

READ A:FOKE D,Aa:D=0+1 

IF A=255 THEN GOTO 530 

GOTO 500 

DEFINT X,Y:X=10:Y=20 

H=1+INT(RNDK19) :1=1+TNT(RNDX39) :POKE 40015,H:POKE 40016,1:FOR B=100 TO 200 
10 :SOUND: ae E 

GOSUE 830 

CALL 32768 

IF PEEK(39999)=1 THEN GOSUB 670:G0TO 440 

TF INKEY(67)=0 OR JOY(0)=1 THEN X=X-1:1F X<1 THEN X=1 
IF INKEY(69)=0 OR JOY(0)=2 THEN X=X+1:1F X>20 THEN X=20 
IF INKEY(34)=0 OR JOY(0)=4 THEN Y=Y-1:1F Y<1 THEN Y=1 
TF INKEY(27)=0 OR JOY(0)=8 THEN Y=Y+1:1F Y>39 THEN Y=39 
POKE 40003,X:POKE 40004,Y 

IF X=H AND Y=1 THEN P=P+15:GOTO 540 

TF X+1=H AND Y+1=1 THEN P=P+15:GOTO 540 

GOTO 560 

DATA IFtO7tO 2 7202 HA 072 47% 

POKE 40010,180:POKE 40011,184 

FOR A=0 TO 255 STEP 10:SO0UND 1,4,10,15,0,0,31:CALL 32768:NEXT A 
V=V-1: IF V>=0 THEN RETURN 

FOR a=0 TO 40:FPRINT CHR$(7) :A+=INKEY+:NEXT a 

PEN 1:LOCATE 16,11:PRINT"GAME OVER" 

IF INKEYS="" THEN 720 

RUN 430 

OATA 3,10,20,10., 20,0,0,0 1$0,1,160,164 

CATA 3,10,10,10, 10,030, O "0,2,168,168 

DATA 1,12,12,1,2,20,0.1,39,2.,172,176 

DATA 1,15,15,0,2,20,1,2,39,3,176,172 

DATA 1,10,10,2,2,20,2,2,39,2,172,176 

MATA 1,10,25,2,3,18 ,0,5,335,2,176,172 

DATA 1,5,30,0,1 ,20,2,1,39,2,172,176 

DATA 1/5,10,2,1,20,2,1,39,2,172,176 

DATA 255 
LOCATER1,2,2:PRINT41, "PUNTOS: "¿P3TAB(27) ¿"VIDAS:" 
RETURN 


- 
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E A 


A A AA 


as 0 DATA BEOOB2OF: PCCDSABEED21A09CED7EOOFEFECOFEOSCACEBOFNEDIFDOGOZFEO22813E200 
-DFS8oz >4COFS 'B02CCD 5802 ¡UA AA AAA NE El | i 
A 3FEO12820 


FE 
-D7EO6FEO1 S20FE0020002370FDBEO?2015PDObO O2180FFEO22 
00B247CFD 

870 DATA E082004FD360600FD7402F e gd BBED7EOAFDAGOBFD7ZOBFD connecotenesoze 
—TIF5S803C24( DF580252C3CCDF58024 


O DATA D23FD23FD23FD2 FD23FD2 ernOFDErESEIEDrDaDEOS caoceo DAB419C0D068124C 
an pe enpepIescnoduiese ESESFSC Lai | Li 


Robe 1-0 
10 RESTORE 8501 


(ASIS IF AR="z0 THEN. RETURN | 
STEP 2:B$="2"+MID$(AS, pao 
¿VAL (B ) ¿D= D+1 NEXT A: GOTO. 920 
AFTER 160 | 
160,3,14,29,29,63 156 ,S54, 48 
161, az : | 
162,124,23595,207¡t0; is 15,30,62 
163. ,62,254, 247 ,83,2 43 
L| 164, 3,14, 29, 25% 56,54 ,4 


1030 SYMBOL 167,62 255, 243,80,240,240, 120,124 
-1040 SYMBOL 168 160, 1t02,207,199,191,191,2$5;,2857 
1050 SYMBOL 169,60,126,255,127,191,191,255,255 Lo] Po 
1060 SYMBOL 170,1 127, 3,63, 31, EC Sd ld cd A OA 
1070 SYMBOL 171,254,254, 52, 252 248) 240,224,128 
1080 SYMBOL 172,225,185,159,150, ,127,89 ,247,215 
1090 SYMBOL 173,135 ,157, 49,105,254, 154 ¿239,235 
1100 SYMBOL 285,117, 113, 184,62, 103, 227, 196 | 
AMIA SYMBOL 175,: 94,78,29,188,230,199,35 5 A O A 
1120 SYMBOL 176,2 o r159,159.,125,119,191,241-— 
1130 SYMBOL 1' “52, 249, 249,190,238,253,143 
1140 SYMBOL 178)258)117) 251,62 ,127,231, 196,0 LA p 
1150 E YHBLC 179,255,94,111, 188 4254,231,35,0 | | 
IC US LO, 7 L e go, 33, 20, “ES : 23, mon ' E | pr + A 
-1170 SYMBOL 181,64,20,161, 234, Sada 248, 1237 


j 
PR E, PI, 


1180 SYMBOL 182,183,31,83,10,87,133,40,2. Ha 
1190 SYMBOL 183,236,249 ,204, 82,232,130, 40,132. | 
1200 SYMBOL 184,137,32,8,34, 128 2011172 | 11 
1210 SYMBOL 185,137,32,8,34,128,20,1,72 
1220 SYMBOL 186,137 132,8,94, 128,20,1,72 E 
1230 SYMBOL 187, 197, 53248404), 128 20, ee (77 
1240 RETURN 


| 


adetado lla 


10 REM Joa BATERIAS riaaniaS Ax 


13 


20 REM xk NGEL GARCIA DELGADO 


> 


| 
Esla 
| 


y BO REM ado ST RRA A nn - e 
Y 40 REM ' , | | Ll Las 
bl so MODE O. RIBES | ] ., | 
Do mx O,OzINK 1,26: INK Prep | a l M | | 
YO] PAPER "0 :BORDER o a OA | MK | Mi M 3 
90 FOR a=0 TO “24P1 STEP Piro. : : | | | 
——100-—-PLOT-01, 01, 2.—t—| | | | | A 
> 110 DRAW. 3004C0S (a) yISOXSIN(a) il | q E mA L. E 
120 DRAWR O A e ja a ota 
y) 130 NEXT al | O MH | 
140 PRINT | HR$ (22) +CHR$ (1) G e 
ntTISPLOCATE 7127 5“ | | r 7 
y 160 PRINT "BATERIAS" A | ee | 
mito 170..PRINT- CHR$ (22) +CHR$ (0) 3. e PE IO O O O O A MA ME 2% TER 
SD) 180 1 2,7,0:10K 3,0,18 .! Ll | .. | 
' 190 FOR a=1 TO 300:SOUND 1,a,1,15:NEXT a | | 67 
200 INK 2,18,7:INK 3,7,18 | 
y - 210 FOR a=300 TO 1 STEP 2: :SOUND 1,2, 1: :SOUND EL Az 1 uE | ] 
A AS “220 SINK 2,71 ENK 3518 A A A De Ls aer =p mor 


230 FOR do 
240 FOR 
250 MODE 1 
_260 GOTO 310 | 
270 PRINT e cotas 7807 ¿FOR . 
280 b$=MID$ (as, a, 1) :PRINT bs; 
290 NEXT a 
300 PRINT:PRINT: ¿Ek a=1 e 200 ¿NE 
O REM HXK INICIO DEL PROGRAMA. * 
32 “22 BATERIAS ANTIAEREAS :GOSUB 270 
330 PRINT:A$="NERRIBA A LOS ONES ENEMIGOS QUE" :GOSUB 
340 As="INVANEN TU ESPACIO AEREO" :GOSUB 270 
350 FRINT:At="PARA HACERLO PULSA F1,F2-0 F3": GOSUB 270 
260 PRINT:PRINT:A$="PULSA_ ¿S—- PARA 
370 1F INEFY(60)< >0 THEN GOTO. 70. 
380 GOSUB 1010 | 
390 ac=0 | 


a=1 TO SOO:NEXT ml 


a=0 TO 50: PRINT- CHRS (7) ¿FOR bei ro 350: NEXT b:NE 


| 


y 
JN 
di 


ml 


el “al -RETURN 


i 


PS 


ll 


xr a 


Rob Faso | HH | | | | | 
mis ¿ ¡A ha : 1 do ¿ E ] j j e 
| | : | Elan : A 
i E : ¿ j j 3 H i 1 j 
A papi a! A a + A -— 1986-- AMIGOS DEL-AMSTRAD- sde MORE 
ue mm: : | i ¿ Pinto A, A qe 
1 | | | ] | ] y z 


410 

20 
430 
440 
4530 
460 
470 
480 
490 
500 
510 
20 
530 
40 
e) 
560 
570 
580 
590 
600 
610 
620 
630 
640 
630 
5660 
670 
680 
690 
700 
710 
720 
730 
740 
7530 
760 
770 
780 
790 
800 
810 
820 
830 
840 
8530 
860 
870 
880 
890 
3900 
910 
920 
930 
940 
950 
960 
970 
980 
990 


TANK 0,20 
INE 1,0 
INE 2, 
MQINE 1 
FAFER 0 
BORTIER 20 
PENTZ 
at= "ma. 
FOR a=1 TO 9 
af=a+CHRE (163) ¿NEXT a 
bi=aR+CHRE (164) +ar+CHRE (16%) +a++CHRE (166) +a+ 
LOCATE 1,23 
FRINT be; 
LOCATE 10,22:FRINT CHRE* (162) 
LOCATE 20,22 :PRINT CHRE (162) 
LOCATE 30,22: FRINT CHR*(162) 
GOSUB 830 
ZéF=" "+CHRE (160)+CHRE (161) :X$=" 
T=1 
=2+ TNT (RITIK20) 
Y=1 
ON T GOSUR 690,730 
Y=Y+1:1F Y:37 THEN LOCATE Y,X:¿FRINT"  ":GOTO 600 
FEN 1 
LOCATE Y,X:FPRINT Zé 
SOUND 1,1000,1 
IF O=z2 THEN TF H=X THEN 1F I=Y+1 OR I=Y+2 THEN GOTO 780 
GOTO 620 
H=21:1F- TNEFRY(13)=0 THEN O=2:I=10 
IF TNEEY(14)=0 THEN [=2:I=20 
TF. INKEY(5)=0 THEN O=2:1=30 
RETURN 
FEN 1aLOCATE 1,H:PRINT" " 
H=H-=1:1F H22 THEN SOUND 3,100,10:T=1 :FA=FA+1 :GOSUB 830 :RETURN 
LOCATE 1,H:PRINT CHRE*(239) 
SOUND 2,50-H,1 
RETURN 
LOCATE 1,H:FRINT CHRE (238) 
FOR A=1000 TO 1100:SOUNO 1,84,1:NEXT A 
AC=AC+1 32 GOSUBR 830 
LOCATE JT,H:FRINT" "¿LOCATE Y,X:FPRINT" E 
GOTO 590 
PEN 2:LOCATE 3,1:PRINT" DERRIBADOS: "¿USING "*H$*$";0C 
LOCATE 25,1:FRINT"FALLOS: "¡USING "R$" ¡FA 


IF. FA:14 THEN 870 


RETURN 
FOR B=15 TO 30 

FOR A=100 TO 1000 STEP B 

SOUNT! 1,0,1 

NEXT A 

NEXT E 

MODE 0 

PEN 2 

LOCATE 6,8:PRINT"GAME OVER" 

INK 2,3,20 

PEN 1 

LOCATE 4,13:PRINT"PUNTOS: "¡USING "HHHHHR"¡OCK1S 
FOR A=1 TO 6000:NEXT A 

GOTO 250 


1000 LOCATE 1,1:ENDO 
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/ 
| 
| 

| 


| 
| 
| 


PRPRPRRRRIRPRRRRRRRRRRRRI/RRRRAT 


ERARAARRAA A EA A ERAS 


1010 SYMBOL AFTER nen 


1020 SYMBOL 160,64 ,224,227,255,127,7,0 


10) 


. 


1030 SYMROL 161 10,2,195 12530,2579,250,0,2 
1040 SYMBOL. 162,60,36,44,44,44,44,110,255 


1050 SYMBOL 163,255,255,255,255,255,255,255 
1060 SYMBOL 164,255,247,231,199,247,247,195,25 
1070 SYMBOL 165,255,195,129,249,195 1159,129,25 
1080 SYMBOL 166,255,195,129,249,227,185,195,255 


1090 RETURN 


MOSQUITOS 


REM aaOlOIOOO: MOSQUITOS XXX KXX 
REM k ANGEL GARCIA DELGADO xk 
REM OOOO G-T.S. OOIOIOOIOOA 
MONME 0 

INE O,OzINK 1,26:INK 2,7:INK 3,18 
PAPER O:BORDER O 

ORIGIN 318,210 
FOR a=0 TO 2xP1I STEP P1/70 
PLOT 0,0,2 

TIRAW 30OXCOS (a) ,15OXSIN(a) 

TIRAWR 0,30xSIN(a),3 
NEXT a 

PRINT CHR$(22)+CHR$ (1) ; 
LOCATE 7,12 

PRINT "MOSQUITOS" 

PRINT CHR$(22)+CHR£ (0) ; 

INE 2,7,0:INK 3,0,18 

FOR a=1 TO 300:SOUND 1,a,1,15:NEXT a 

INK 2,18,7:INK 3,7,18 

FOR a=300 TO 1 STEP -2:SOUND 1,a,1:SOUND 2,ax2,1:NEXT a 


E E 
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210 TNK 2,7: INK 3, a ha 
220 FOR. 11 TO... 500: ¿NEXT a 


230 FOR eS SO: ¿PRINT Sita tela 3 To 50: ET] 

240 MODE 1 | | 

250 GOTO 300 E Hp | A 

260 'RINT TAB (20- LEN(at)/2) ; FOR a=1 TO LEN(as) 
270 $=MID0% (ar, ya,1) ¿PRINTO b$;:1F a Pd THEN PrINT 
—280-MEXR a — e e a 

290 po ¿PRINT:FOR a=1 TO 200: ¿NEXT a: RETURN 


PPP PO 


300 REM XXX INICIO NEL PROGRAMA XxX 


310 MOSQUITOS >> >" GOSUB 260 | 
| 320 PRINT:A$="CON LA LLEGADA DEL dElano ve VUELVEN" :60sus 260. 
330 A$="LOS INDESEABLES MOSQUITOS. ELIMINA" :GOSUB 1 E: 
| 340 A$="A LOS MOSQUITOS PEQUENNOS, PERO SIN" :GOSUB de yes 
350 A$="TOCAR A LOS MAS GRANDES" :GO 77M ER E 
360 É ="0. ARRIBA" :GOSUB 260 ' 

370 A ABAJO" :GOSUB 260 DN 
380 A$="0. IZQUIERDA" :GOSUB 260 
390 As="P. DERECHA" :GOSUB 260 EOO j | 

400 PRINT:A$="PULSA -S- PARA ea eaRa 

pe 


0 410-1F INKEY(60)<>0 THEN GOTO 410 
+——420-¡ENK— 0,2351 1001028: 10-29 — 
430 PAPER O:BORDER 22:PEN A O SL | 
440 nose e MUENM 
450 GOSUE 1150 M | 
460 GOSUE 1090. 
470 BOSUB 780 
480 pu 1010 


490 P=0:GOSUB 1070 | [ei | 
Oe A que | 


20 TF INKE 7 =O THEN. H= -1 od 


| 530 IF INKEY(69)=0 THEN H= br | E ! 


540 TF INKEY(34)=0 THEN I=1-1 
550 IF INKEY(27)=0 THEN I=I+1 


TH CALL 30000:C PEEKI2999% 


580 LOCATE IB,HB:PRINT EN 
590 LOCATE 1, H:PRIN AaeAS 


600 SDUNT 1,2000, ca 


; 610" TB= TEHBEHA A A Pe A A A E q 
620-1F-E>t61 THEN E 650 7 | Ios 
630 IF C=160. THEN- FOR A=1- TO 200 STEP 20:SOUND 1,A,1: 
SUB E en | : | 
640 GOTO 520 


650. REM XXX MUERTE TN 
0660 INK 0,6,12:BORDER 6,12 
E 670 FOR A=1 TO 1000 


680 SOUND al pu 
mp ZO MEXTIA tam f 
700 INK 0,22 


710 MODE O 
720 PEN Zocor. 6, :PRINT"GAME OVER" 
730 PEN 1 q E 
74074 CATE -4,13:PRI T"PUNTOS +" ¡USING "RRRRRA" > Po 
Po 750-—ENK- 2422 | | 

760 FOR A=1 TO 10000: NEXT A 
770 RUN 240. IM 


780 MODE 1 
790 WINDOW + 


j 


4400000090044 0U4 440041 UYWYasuv Y 


800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 


930 


940 
9530 
960 
970 
980 
990 
1000 
1010 
1020 


1030 


1040 
1050 
1060 
1070 
1080 
1090 
1100 


1 1110 


1120 
1130 
1140 
1150 


1160 


1170 


1180 
1190 


1200 


1210 


1220 


1230 


FAFPER $+1,3:CLS +1 

WINDOW 1,40,4,253 

PEN 3 

A$=CHRE (166) +CHR+$ (166) 

B+= ”n«. 

FOR A=1 TO 20 

BR+=R$+0+ 

NEXT A 

FPRINT R+;B%; 

FOR A=1 TO 17:FRINT As$¿TAB(39) A+; :NEXT A 
FRINT B+;R%; 

RETURN 

REM XXX MOSQUITO GRANDE. kxkx 

X=3+TNT (RNIIX16) :Y=2+TNT (RNTIK35) 

FEN 2 

LOCATE Y,X:CALL 30000:0=FEEK (29999) 
LOCATE Y+1 


LOCATE Y,X:PRINT CHRE (162) +CHRE (163) 
LOCATE Y ,X+1 3: PRINT CHR*(164)+CHRE (165) 
X=3+TNT (RNDX17) :Y=2+ INT (RNDX36) 
LLOCATE Y,X:¿CALL 30000:0=PEEEK (29999) 

IF C<3*32 THEN. GOTO 1010 
SOLUNTA. 1,300,1 

PEN 2:1PRINT CHR+ (160) 
RETURN 

LOCATE +1 110,2:PRINTH1, 
RETURN 

REM xk CODE SCREENS kk 
CATA 205,96, id 1 47 »117,201 

RESTORE 1100 

FOR a=30000 TO 30006 : ¡READ b: POKE. as bs NEXT a 
RETURN 

REMO OOIBIRBIBIOIOIRIOIRIORIORORIOK 

SYMROL AFTER 160. 

SYMBOL. 160,80,168,156,223,120,36,68,130 

SYMBOL. 161,24,24,8,227, 199 ,16,24,24 

SYMBOL 162,52,74,74,133, 130 131,227.63 

SYMEOL 163,0,0,0 ,48,248,255,248, 192 

SYMBOL 164, 15,20, 20 144,216, 16 196,0 E 

SYMBOL. 165,128 ,192,160, 176,64,48,0,0 

SYMEOL. 166, ,182,109,219, 182,109,219, 182,109 | 
RETURN 


"PUNTUACION: "¡USING "RHHHRR" IP 


¿TF 02:32 THEN GOTO 930 

¡XGCALL. 30000 :0=PEEK (29999) :1F 0<:32 THEN GOTO 930 
LOCATE Y+1,X+1:CALL. 30000:0=FEEK (29999) :1F C< 
LOCATE Y MH Li ¿CALL 30000 :C=FEEK (29999) :1F 0:32 THEN GOTO 930 


+32 THEN-GOTO- 930 


¡ 


AS 
1 
4 
j 
| j 
| | 
¿ j 
y j 
¡ 3 
y j 
es 57 
Eo 
: La 
¿ j 
¿ j 
j 
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E 
j 


j 
j 


BATERIAS 


10 
20 
30 
40 
50 
2 
Es 
56 
60 
70 
80 
90 
100 


pa 


500 


1000 CLSH2:PRINTH2,"*xxxk DATAS 


MONDE 
TNE 


1. GOSURE 3000 
1 


O,26:TNE 1 


¿02 TNE 
WINDOWR1,1,8,1,8:WINDOW 1,40,9,25:WINDOW+$2,10,40,1,8 


2,Z2ÓsINK 3, 


PAPERH1,2:CLS41:PENH 1,1 
EORIIER 26 


FOR A=1 TO 8:FOR B=1 TO S:LET A+(A,B)="0":NEXT E 


AS (X,Y)="1" THEN PRINTH1,CHR$ (143) 


"SYMBOL. FINAL :" ¿SF 
1010 PEN 1:MOTME 2 
1015 L=9000+ (2x (SI-32)) 
1018 SYMBNL AFTER 235 
1020 FOR N=S1 TO SF 


THEN 


PRINTH1,0" 


THEN Y=Y-1:1F Y<1 


THEN Y=Y+1:1F Y:8 


THEN X=X-1:1F X<1 


THEN X=X+1:1F X:8 


THEN 
THEN 


THEN 
THEN 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


GOSUR 2500 
DIM A+(8,8) :DIM G(8) 
GOSUE 2000 
NEXT A 

X=1:Y=1 
LOCATER1 ,Y,X 

IF AS(X,V)="0" 

IF 

IF INEEY(8)=0 

IF TNEEY (1)=0 

TF TNKEEY (0)=0 

TF INKEY(2)=0 

TF TNEEY(18)=0 

IF INKEY (79)=0 
| LOCATER 1, Y ,X 

TF AF(X, Y ="1" 

IF ARF(X,Y)="0" 
Té=INKEYS 

IF INKEY (61)=0 

IF INKEY (35)=0 

IF INKEY (62)=0 

IF. INEEY (27)=0 

IF INKEY(63)=0 

IF INKEY (58)=0 

IF INKEY (71)=0 

IF INKEY (55)=0 

FOR Z=1 TO 60:NEXT Z 
GOTO 90 


AF(Xx, 1) ="1" 
AF(X,Y)="0" 


FRINTH1,CHRE$ (233) 
PRINT+$1 ,CHR+ (232) 


GOSUR 1000 
GOSUB 1500 
CLS+1 :GOTO 
GOSUB 1600 
GOSUB 1800 
GOSUB 1900 
GOSUB 2500 
GOSUB 1950 
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8 


THEN 
THEN 
THEN 
THEN 


60 


x= 
O TS 


OD -= 0 


q" :PRINTHZ 5 INPUTHZ, "SYMBOL INICIAL :"¿SI:INPUTHZ, 


Nnnmnnnnnnnamonanannnma nta a fa fa 12 19 (9) (2 


das 


1030 
1046 
1030. 
1060 
1070 
1080 
1100 
1500 
tt 
1505 
1510 
1515 


1520 
1525 
1528 
1530 
1540 
1600 
1610 
1620 
1630 
1540 
1630 
1660 
1700 


1710 


1720 
1730 
1740 
1800 


1810 


1820 
1830 
1900 
1910 
1920 
1930 
1950 
1960 
1980 


2000 


2010 
2020 
2030 
2040 
2050 
2060 
2120 
2130 
2190 
2200 
2500 
2510 
Paria 
2az2o 
2330 
¿540 
ZaUGO 
2560 
2600 
3000 
3010 
3020 


PRINT L+(3k (N-ST)) 3 "SYMBOL" ¿N¿CHRE (8) 30,05 

p=40700+(Nx8) 

FOR b=p TO F+712*=STRE(FEEK (b)) 

PRINT MIORF(2+,2,LEN(23)-1)3","; 

NEXT biFRINT CHRE(8)¿" " 

NEXT n 

ENT 

CLSH2 PRINTER, "Mk INTRODUCIR XXX" GPRINTREZ 5 INFUTR2, "EN QUE CARACTER (32-233 


FRINTH2R, "CAMBIAMOS: "¡¿CHRE(C) 

FOR A=1 TO B:I%$="":»FOR Z=1 TO 8:Dé=03%+A+ (4,7) ¿NEXT 7 :NU=VAL. ("2:X"+D13%) 
G(A)=NU 

FOKE 40699+(0x8)+A4,NU:NEXT A 

SYMBOL C,6(1),6(2) ,6(3) ,6(4) ,6(5) ,6(6),6(7) ,6(8) 

GOSUR 2130 

FRINTRH2,"0K. TNTRODUCIOO"05" 0 "5CHRE(C) 

RETURN EA y 
CLSH2:PRINTHZ, Moo ELEGIR OO": PRINTH2 5 INPUTH2, "QUE CARACTER (R-2550) "50 
P= 40700+ (0K8) FOR 7=P TO F+7 

Z$=ETNS (PEEK(Z),8) :FOR N=1 TO 8:04 (Z7-P+1,N)=MI0%(7%,N,1) :NEXT N 
NEXT Z 

GOSUE-1700- ; e 

PRINTHF2,"0K, "¿CHRE(C) 5" EN FANTALLA." 

RETURN 

FOR E=1 TO B:FOR L=1 TO 8 

LOCATER1,L,E 

IF AF(K,L)="0" THEN FRINTH+1,CHRE (32) 5 

IF ARF(K,L)="1" THEN PRINTH1,CHRE (143); 

NEXT L:¿NEXT K:+RETURN 

TNPUTRR2, "CARACTER INICIAL :"C 

CLSHZ 

PRINTH2 ,CHRE (0) ¿CHRE(C+1) ¿PRINTR2,CHRE(0+2) ¿CHR$ (+3) 

RETLIRN 

FOR K=1 TO 8:FOR L=1 TO 4 

ZE=SAF (ES L) ARK, L)=AS(K,9-L) :Aé(K,9-L)=Z$ 

NEXT L:¿NEXT K : 

GOSUB 1700 :RETURN 

FOR K=1 TO B8:FOR L=1 TO 8 

TF AF(K,L)="0" THEN A+ (K,L)="1" ELSE AF(K,L)="0" 

NEXT L:¿NEXT K:GOSUB 1700:RETURN 

Hié=""2FOR A=32 TO 71 :H$=H$+CHR*(A) ¿NEXT A 

lé="":FOR A=72 TO 111:lI$=1$+CHR$(A) ¿NEXT A 

Jé=""*»FOR A=112 TO 151 :Jé=J$+CHRE (A) ¿NEXT A 

kKé=""+FOR A=152 TO 191:K$=K3$+CHR3(A) ¿NEXT A 

Lé="":FOR A=192 TO 231 :L3=L$+CHRE (A) ¿NEXT A 


Mé="":FOR A=232 TO 255:M$=M$+CHR$ (A) ¿NEXT A 


CLS:¿PRINT:FOR A=32 TO 255 STEP 40:FEN 2:PRINT A:FRINT:NEXT A 
SYMROL AFTER 32 
FEN 1:LOCATE 1,3:FRINT Hé:PRINT I$:PRINT Jé¿:PRINT KER:PRINT Lé:FRINT ME 


CLSRRPRINTRER, "22% GENERACDIOR DE CARACTERES 3%" 21FRINT 
FRINTH2,"MOVIMIENTO CON TECLAS CURSOR" 

FRINTH2., "ENTER. ENCIENDE DEL. AFAGA" 

FRINT42,"T. INTRODUCIR P. ELEGIR" 

PRINT2,"C. BORRA CELODILLA" 

PRINTHZ Es ESFEJO  V. INVERTIR" 

PRINTH2,"D. MATAS Z. FONE ESTA PAGINA"; 

SOUND 1,200,10 

RETURN 

MONDE Ox :PRINT"GENERADOR :" 

PRINT:PRINT"ANGEL GARCIA DELGADO" *PRINT"G.T.S. 1986" 
FOR A=1 TO 1000 STEF S:SOUND 1,4,1,15:NEXT A:RETURN 
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LLO 


10 EE 
20 RE 
30 RE 

40 REM 
SO MODE : 

70 PAPER 0: OTE] o 
290 FOR a=0 TO “OPT STEP PI/7C 


24120 
O. 


180. 


1370 
380 
¿390 : 


400. ag te. DERECHA" ¿GOSUB 270 


14-A 


AOIBICIOIOO RECOGIDA AOOIOIOIO oK 
* ANGEL GARCIA TELGADNIO x 


mat dEl: 5» oOMao o 


60 INK 0 ,0z1NK 26: In 


80 ORIGIN 318,210 


O A ri + E NS: AN, 


¿ 


100 
110 


PLOT OO,0 
TIRAW 3Ó0XCOS (a), SOXSIN (a) 
TIRAWR-O ladebriciol 3 
Car | 
INT CHR+ (22) +CHRE (1) 5 
OCATE 7,12 | 
PAINT] RECOGIDA" | a 
PRINT (CHR$ (22) +CHR$ (0) $ | 
TNK-—2 7-07 ENK-30'18- 
FOR :a=1 "70 300 : SOUNE 1 
¿INK .2,18.,7:I1NK.3.,7.,18 . 
-2 : SOUND 1,a,1:50 


? 


La 
150 
160 
170 


, pl 
190 
200 


210 FOR a=300 TO 1 STEP 
220 TNK 2,7: INE 3,18 4] 


230 FOR azi TO 500: ¿NEXT a 


240 FOR a=0 TO SO0:FRINT CHR$ (7) ¿FOR b=1 T 


250 MOE 1 | | 

260 G0T0- 310 a 

270 FRINT TAR(ZO-LEN(at)/2 COR. dell TO. LE 
280 bé=MTM£ (at,a,1) :PRINT 7 ¿TF bezcóno" 


290. 
300 
310 


NEXT a | 

FRINT:FRINT:FOR as1 TO 200:NEXT a:RET 
REM oxxxk TNICIO MEL PROGRAMA xxx 
Ab RECOGIDA SA BOSUB ZO 
PRINT:A+="RECOGE LAS PERAS DEL HUERTO. 
A$="CARGARLAS EN EL CAMION, ANTES [E 
A+s="ESTE SE MARCHE .":GOSUB 270 
FRINT:As="CONTROLES MEL JUEGO: " :GOSUB 
(AF="0. ARRIBA" :GOSUB 270 
As="A. ABAJO" :GOSUB 270 
As="0. IZQUIERDA" :GOSUE 


p 
Í 
] 


330 
340 
350 
360 


270 


| | 
ie OS DEL AMSTRAD - 1986. | 


j 
j ¿ 
j ! 


ra lb, 1S:NEXT a 


i ¡ l i | 
| | Ml ua 
E T a dE 0 A A a 
| i | 
| | E 
] | | 
| ENAR 
| | W 
: le | 
+ ¿ 
| A | 
A O A el arde 
| | 
| | 
| | 
| i 
| 
¿ 
PP e A A A A E A 
a mu | 


¡ 
UND 2,2251: 
¡ | 

o 


p 


Nas) ol 


THEN FPRINT CHRE (7); 


unn 
| 


¿NEXT a 


lla 270 
QUE" :GOSUB 270 
270 

da Lo 


j 

7 

¡ 
| | 
¡ 
¿ mi 
j j 
¿ i 
| | 
t 7] 
| | 
4 ¿ 


ta iaa a dl 


$ 
PR + 
i 
j 


SO:NEXT biNEXT a Po] | 


EHH 
| | 
| | 
| j 


| 
| 
é 
| 
i 


ad 


e pm | ? | 
: l 
E A _ PA RE ABE MEA a cdo ma me 


410 P INT: -AS="PULSA -5- PARA EMPEZAR" ¿GOSUB 270 
420 TF INKEY(40)<>0. THEN poro) 420] | | 7 
| 430 4 nba 


Pe A PP cojo DR TN E 


AS 1,26: INE 2, o; “INE 3,24 
'APER.O 11 i 


O 


uE; 


i j ¿ i 
| 
j 


2. E E : á . : | | 

500 PRINT $1, PUNTOSE"STAB(ZO) $1 "PTIEMPOS"" | | 

510 Amen E : : A A ¡e 
¡ 


A 


., as 


| 
¡ 
| | | 20m DS 
50 PF INT $1, ne SH oE BR "¡CHAS (161) DI 
| ¿ 


1 


40 AMEN 70 


lira , 4 
i : | i 
j cen DS EROS IE OS: O ET E A ¿ ES E EA E RL ES TO, UE + A O A A 
-——S70 eE 3 1 j | : ¿ | i 
4 580 T=300 ¿ ; A : pu a j ¿ ] | 
i 


590 X=S5pY= =5:;Xh=5 ¿YB=5¿R=0 | | 

600 TF TNKEY (67) =0 THEN X=X-1: IF OX< 1 THEN X= 1 

610 TF TNKEY(69)=0 THE - 

"620" TF TNKEY (34)=0 THEN Ml 

0630 IF INKEY (27)=0 THEN Y= Y+1: IF Yo 40, THEN Y= 40 

640 LOCATE YR,XB: PRINT" " | 

650 LOCATE Y Ae CALL. 30000:C= PEEK (29999) i pe | 

O IF C=160. "THEN. R= =R+1 ¿SOUND 1,500,3:P=P+5 “LOCATE el, 1.1.,1 :PRINTAL, 1 A DO ER SE REA. 
IF Ro Q+SF THEN R=05F= F+1:P=P+T:FOR A=1 y 1000 STEP 34 SOUNTN 1,0, 1: ¡NEXT A:GO 

To 560 | 

680 PRINT A" | | 

690 T=T-1 :¿LOCATE $1 31, 1: PRINTH1 USING Mii! E 

al 200- AFA 1 THEN GOTO 7 30 A A A o 

710 XB=X:+YB=Y- — 

0720 GOTO 600 | | 

730 Bs=" "+CHRE(161)+ HRS (162) +CHRE (160) +CHRS (16) 

0740 FOR A=3 TO 36 

x 750 LOCATE +$1,0,S:PRINT $1 es 

SOUND) 1, 1000, 1:FO B= 1 TO 50: NEXT. B 


j 
i 
pl 
H 


H 


NEXT-A- 
MODE O 
PEN 2 | 
g LOCATE 6 ,7i PRINT"GAME. OVER" 
810 PEN 1. | 
LOCATE 5 ,12+PRINTUPUNTOS:+*sUSING AS 
L-830-INK-2 110 | pa e 
840 FOR Ala Fo-a000 STEP 10:5OUND EN pol 1: NEXT. A A PR AO AA 

850 FOR A=1. To 10000: NEXT A | ¿ 1 E 

860 RUN 250 A Do 0 | 


+ 

i 

i 

i i ¿ 
PE O A E A > ¿ 
! i i | 

i 

: 

i 


ya] 5 


SN 870 FOR A=1 TO 10+5xF | W 
D 2 lara eco inlodas ñ | | | | Í 
” 870 LOCATE Y.XACALL 3000011F REEK(29999)<>32 THEN GOTO 880 
900 PEN 2:PRINT CHR$(160) | 
y 910 PRINT CHR$ (7) 5 | 
920 NEXTA 
DR 
940 END | 
950 REM Xx CONE SCREENS CL 
SN) 20 nara 205,96,187, 50,47,117,201. 
y 


, 1 a A OS A E 


¿ 
¿ 
$ 
¿ 
¿ 


0970 RESTORE 960 
-980 


FOR “a=30000-TO- 00006sREAn piro ¿POKE- a, ¡bh ¡NEXT a 


Eos 


990 RETLIRN 

1000 REM ABGIGIOOOIOIOIBIRIERRIEROR 

1010 SYMBOL AFTER 160 

1020 SYMROL 160,96,144,56,56,124,12 
1.020.-5YMBOL..-161-4255,128), 128, 128, 1: Ze 
1040 SYMROL 162,255, 0,0,0,0,2553,64, ó 

1050 SYMBOL 163,251 11 E 1, 511 251,222 ,216 
1060 SYMBOI 164,774,176,152, 143 235,233 5493,28 
1070 SYMBOL. 165,0,0,0,0,126,63,0,0 

1080 SYMROL 166,0,0,0, 255,255, O 0 10 

1090 RETLIRN 


4 


q 


, 
Ab 
ye 


PI o 
SS : a 


10 REM kXXXXX ERRRO BLAJE XXXXXX 
20 REM Xx ANGEL. GARCIA DELGADO * 
30 REM OAGOOIOIOONkx G.T.S. XKXXXXX 


40 REM 

42 GOSUB 1110:GOSUR 1170 

50 MOTE 0 

60 INE 0,02 INK 1,26: INK 2,7:1NK 3,18 
70 PAPER O:BORTIER O 

80 ORIGIN 318,210 

90 FOR a=0 TO 2XxP1 STEP PI/70 

100 PLOT 0,0,2 

110 DRAW 300*COS (a) ,15OXSIN(a) 

120 TIRAWR O, BOXSIN(a), 3 

130 NEXT a 

140 FRINT CHR$(22)+CHR$(1); 

150 LOCATE 6,12 

160 PRINT "EMSAMBLAJE" 

170 PRINT CHR$(22)+CHRE (0) ; 

180 INE 2,7,0:TNE 3,0,18 

190 FOR a=1 TO 300:SOUNO 1,a,1,15:NEXT a 
200 INK 2,18,7:INK 3,7,18 
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da A 


dass no odiada 


ERRATA AAA AAA AAA 


210 
220 
230 
240 
250 
260 
270 


280 


290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
4ZO 
430 
440 
40 


460 


470 
480 
490 
500 
510 
a2O 
530 
540 
550 
560 
570 
580 
=90 
600 
610 
620 
630 
640 
650 
5660 
47O 
680 
620 
700 
710 
720 
730 
740 
750 
750 
770 
780 
790 
800 


FOR a=300 TO 1 STEF -2:SOUNO 1,2a,1:SOUNO 2,2akXx2,1:NEXT a 
TNE 2,7: TINK 3,18 

FOR a=1 TO SO00:NEXT a 

FOR a=0 TO SO0:¿FRINT CHRE(7):¿FOR b=1 TO SO:¿NEXT b:¿NEXT a 
MOnME 1 

GOTO 310 

FRINT TAR(20-LEN(at)/2) ¿FOR a=1 TO LEN(az*) 
bé=MTM% (at, ,a,1) :PRINT be: 1F bé" " THEN FRINT CHR (7); 
NEXT a 

FRINT:FRINT:FOR a=1 TO 200:NEXT a:¿RETIURN 

REM Xxx INICIO MEL FROGRAMA *xxx 

Aé="<22 ENSAMBLAJE 533" :GOSUB 270 
PRINT:FRINT:Af="ENSAMBLA TU MODULO LUNAR CON LA NAVE" :GOSUE 270 
Ax="NOMDRI]ZA FERO SIN ESTRELLARTE CONTRA LOS" :GOSUR 270 
AF="ASTEROIDIES, O CONTRA EL SUELO DE LA LUNA" :*GOSUR 270 
FRINT:A+="LOS CONTROLES DE LA NAVE SON:" :GOSUR 270 
At="CURSOR <. MUEVE A LA IZQUTERODA":GOSUB 270 
Aé="CURSOR 3. MUEVE A LA DERECHA" :GOSUB 270 

A+="CURSOR "+CHRE(196)+". ACTIVA RETROFROPULSORES" :GOSUB 270 
FRINT:At="FPULSA -S- FARA EMPEZAR" :GOSUB 270 

TF TNKEEY(60)<%0 THEN GOTO 410 

Si="" “FOR A=1 TO 40:S5%=S+$+CHRE (164) ¿NEXT A 

INE 0,0: INE 1,26: 1NK 2,10: INE 3,3 

FAPER O:ROROER O 

FEN 1 

MODE 1 

'=0 1 V=5::1F=1 

WINDOW 1,40,2,25% 

GOSUR 930 

X=1 :Y=1+TNT(RNTIX39) 

XB=X»VR=Y 

LOCATE Y,X:PEN 2:FRINT CHR2(160) 

FOR A=1 TO SO:A%+=TNEEYE:NEXT A 

AF=TNEEFYR:T1F Az="" THEN GOTO 540 

TF TNEEY(8)=0 THEN Y=Y-1:1F Y<1 THEN Y=1 

TF TNEEY(1)=0 THEN Y=Y+1:1F Y%40 THEN Y=40 

TF TNEEY(0)<30 THEN X=X+1:G0TO 600 

SOUNT 1,1000,1,15,0,0,31 

X=X-1:1F X<1 THEN X=1 

LOCATE Y,X:CALL. 30000 :C0=FEEK (29999) 

TF C=32 THEN GOTO 680 

TF C=161 THEN 710 

IF C=14642 THEN 710 

TF C=163 THEN 710 

TF C=166 THEN 710 

IF C=1464 THEN 710 

TF C=46 THEN GOTO 760 

LOCATE YR,XRE:FRINT" ":“LOCATE Y,X:¿FRINT CHR*(160) 
XB=X : YR=Y 

GOTO 550 

REM xxx MUERTE XkxXxXk 

LOCATE YR,XR:PRINT" "¿PEN 1:LOCATE Y,X:FRINT CHRE (238) 
FOR A=1 TO 1000 STEP S:SOUND 1,4,1,15,0,0,31:NEXT A 
V=V-1 ¿GOSUR 1070 

GOTO 490 

LOCATE YR,XB:¿FRINT" "*LOCATE Y,X:FRINT CHR*(160) 

FOR A=1 TO 1000 STEF 5:SOUND 1,9,1:NEXT A 

F=F+1 

P=F+15xF 

GOTO 490 
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810 REM Xxx GAME OVER la A: 


A ! 1 020 


ARS | 
Li - slds E UR A 1 


| 


H 


Appa 


| 


j ¡ 
-820-FDR|-B=15-TO-200-STEP-2 o | | DE 
830 FOR. A=1.TO. 500 STER-B—- = A E A PA O 0 DO dl A 
840 SOUND 1,0,1 153 | L..] | | + + 
850 NEXT A: ¿NEXT E O O O O | | | E] 
860 MODE O | A | | | |] | 
870 LOCATE 6,8 ¿PEN 2:PRINT"GAME OVER" | | | | 
880 PEN q —Á q + EU NEUE NEO 
-890 LOCATE 5 ,12:PRINT"PUNTOS :" ¿USING "pene | | ¡ 
2900 TNE 2,16,0 TP tn | ¡ E 
910 FOR A=1 TO 10000: NEXT A A: | ps : 
0920 RUN 250 e E: Li / - e RO, A E 
930 REM xxxk ASTFE ROTDES xXx | | | 
940 GOSUB 1070: CLS | | | | | 
r950+PEN/-3' Pp] A i | | | 7 | 
960 FOR A= TO LOF+FRE 2 + Í : pa E E Y | 
1970. Xx -1+TNTORNDAZ1) :Y=1+INT RNE ARA A hen GOTO 970 E A E! TÉ 
(980 LOCATE Y,X:CALL 30000 ; IF PEEK (29999) (932 THEN GOTO 970 | 
(990 PRINT CHR$ (166) | ¿ | | 
(1000 NEXT A | | | | | | | | 
(21010 PEN FLOCATE q 24 :PRINT S$z e : | | | | 
PEN bo PA 2 UR a a E r A A E A o A A E 10 ñ 
l AMARA | l 


(1030. 


1060 
[16070 1 


1080 
21090 
1100. 
1110 
21120 
1130 
21140 
H+450- 
(1160 
1170 
1180 
1190 


¡t210"5Y 


11220 


1240 


11:230...5Y 


RE 
LO 


TF: 
RE 
END. 
RE 
TIA 


V=] 


ml 


SYMEOL 
SY 


1BOL 
SY 


SYr 


CATE $1, 
OO FASE: ea 


URN. 


1040 LOCATE Y,23:PRINT CURE 161) 4CHRE (187) «CHE (160) 
305 10) LOCATE. Y ,22:PEN 1 ¡PRINT" q | 
URN Í 


| 


$1, USING "44" ;F E 
THEN GOTO aero po : | 


| i ¿ j 
H ¿ b j 


1,1 sPRINTHL, “PUNTOS: “USING CRANE GPRINTA, 1 


l 


A 205 
RESTORE 1120 
FOR a=30000 TO 30006 ; READ b:POKE 
RETURN 
REM OOOO a 
SYMEOL E 


EOL 
SYMEOL. 14 


EOL. 
BOL. 
ROL. 


CONE SCREENS xk n 
,9é ,187 50 47 y da | | | | 
Edu b: EXT a. 


a 
11, AE ,11,11,4 


UN A 


AFT 
160, 
al 


R 160 
74,44, 94 ,191 
16 Ao: 


0,0 
163,96 240 ae E 208, cono 96 
164,123,255,255,241,255,223,255,255 
165 pap» ,60 160,24,24,16, 32.,0 


RAROPERRRA?A 


i 
j 


ra 


RE 


URN 


166,56,122,247,255,223,122,126,28 | al 


18 - AMIGOS DEL AMSTRAD - 1986 


e. 


2.5 
E 


i | | 
paa : o 
11d 38 0 MEA es E) 
. ROA 
| | e 
13 E pl A PA A 
| | | 
| * i pp 
oli A O a A A DS 
0 | 
j | | 
| 


a 


FMI HAM ARNES Y SS AS SS AS SS SS 


> 
33 EE Ea Foo 
a » 


ANTIRROBOT 


10 
20 
30 
40 
50 
50. 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 


200 


210 
220 
230 
240 
250 
260 
270 
280 


REM XXXXXxX ANTTRROBOT AOOOoOK 
REM kx ANGEL GARCIA IMELGADO Xx 


REM 3OBIOOIOIOIBO: G.T.S. OOOO 
REM 
MONDE 0 

INE 0,0: INE 1,26:INKE 2,7:INK 3,18 
PAPER O2+BORTIER O 
ORIGIN 318,210 | 
FOR a=0 TO 2xP1 STEP P1/70 

PLOT" 0,012 

TIRAW 3OOXCOS (a) ,1S5O*XSIN(a) 

TIRAWR O,BOXSIN(a), 3 

NEXT a 

FRINT CHRE(22)+CHRE (1); 

LOCATE 4,1? 

FRINT "ANTIRROROT" 
PRINTOCHRE(22)+CHRE CO) y 

TINE 2,7,0:TNFE 3,0,18 

FOR a=1 TO -300:SOUND 1,8,1,15:NEXT a 
INK_ 2,18,7:INK 3,7,18 | 
FOR a=300 TO 1 STEF -2:SOUNO 1,8,1:S0UND 2,aX2,1:NEXT a 

TNE 2,7: TNEK 3,18 

FOR a=1 TO SOO2NEXT a 

FOR a=0 TO SO:PRINT CHR$(7) :FOR b=1 TO SO:NEXT b:NEXT a 

MOME 1 | | | 
GOTO 310 ¡ 


FRINT TAR(Z2O-LEN(ar)/2) :FOR a=1 TO LEN(az) 
bé=M]MDf(ar,a,1) :PRINT bey: IF béx3" " THEN FRINT CHRE (7) ; | 


290 NEXT a | 
300 PRINT:PRINT:FOR a=1 TO 200:NEXT a:RETURN 


310 


REM Xxx INICTO DEL PROGRAMA xxx 


320 Aé="<x<x% ANTIRROROT 333" :GOSUB 270 


330 


PRINT:A+="CONDUCE TU ROBOT A LA ZONA MARCADA" :GOSUB 270 


340 A+="CON LUNA =H= FARFPAMEANTE, FERO" :GOSUB 270 


350 
360 
370 
380 
390 
400 


A%="TENTENTIO SUMO CUTOATIO DE NO FISAR":GOSUB 270 
As="LAS MINAS QUE AFARECEN EN EL CAMTNO" :¿GOSUB 270 
FRINT:As="0. ARRIBA" :GOSUR 270 

A+="A. ARA.JO" :GOSUR 270 

Aé="0. TZQUTERDA"” :GOSURE 270 

Asf="F. DERECHA" :BOSUR 270 
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410 
420 
430 
440 
430 
460 
470 
480 
490 
500 
10 
20 
530 
540 
50 
560 
570 
580 
390 
600 
610 
620 
630 
640 
630 
660 
47O 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
e50 
860 
870 
880 
890 
900 
910 
920 
930 
940 
9530 
9650 
970 
980 
990 


FRINT:FRINT:Af="FULSA -S- PARA EMPEZAR" :GOSUB 270 

TF TNEEY (6030 THEN GOTO 420 

TNE 0,0: TINE 31,24: INE 2,23:2:INKE 3,6,17 

FAFER O:BORMODER O:FEN 1 

GOSUR 1110 

GOSUR 1170 

MONME 1 

WTINTIOW +$1,20,33,1,3:FAFER $1,1:CLS +1 

FENH1,2 

PRAT MRRRROROORROOBOO Old lPlBlPIOPlPjPlO SIPPSS IB lBlBIBPlPjEJOR! ; 
f=1:ip=0 

GOSUR 1040 

LOCATE 1,1:PEN 3 

FRINT CHRE (165)+CHRE (166) 

LOCATE 1,2 

FRINT CHRE (167) ¡CHRE (168) 

np F=CHRE (160) +CHRE (161) +CHRE (10) +CHRE (8) +CHRE (8) +CHRE (162) +CHRE (163) 
bi="  "+CHRE(C10)+CHRE(B)A+ACHRE (DI) 0 0" 
x=23 1y=39 

xb=231yb=39 

M=0 

TF? TNEFY(67)=0 THEN x=x-1:1F «31 THEN x=1 
TF --TNKEEY(69)=0- THEN x=x+1:1F- x<*23- THEN == 
TF. TNERY (34)=0 THEN y=y-1:1F y231 THEN y=1 
IF” TNEEY (27)=0 THEN y=y+1:1F y>39 THEN y=39 

LOCATE y, :GOSUB 780 

LOCATE y+l,x :GOSUR 780 

LOCATE y,x+1:GOSUB 780 

LOCATE y+1,:+1:GOSUR 780 

PEN:-2 

LOCATE yb,yxbi:FRINT be 

TFR M310-F THEN GOSUB 1060:M=0 

LOCATE y, PRINT p* 

M=M+1 

SOUNT 3,25+25xXRNTI, 1 

xb=x 1yb=y 

GOTO 670 

CALL 30000 :c=FEEK (29999) 

IF c=32 THEN RETURN 

TF c=164 THEN GOTO 840 

TF C=42 THEN GOTO 840 

TF (164 THEN GOTO 970 

RETURN ; 

REM Xxx MUFRTO xxx 

TNE 0,3,12 :BORMIER 3,12 

FOR A=1 TO 1000 STEF 3:SOUNO 1,94,1:NEXT A 

INE 0,0 

RORTIER (0 

MOTE O 

FEN 2 

LOCATE 6,7:PRINT"GAME OVER" 

FEN 1 

LOCATE 4.13:FRINT"FUNTOS: "¡USING "HHHHRHRUP 

INE 2,25,0 

FOR A=1 TO 10000:*NEXT A 

RUN 250 

REM Xxkx H... OTRA FASE x*xkx 

LOCATE YB,XB:FRINT B*:LOCATE 1,1:PEN 3:PRINT P* 

FOR A=20 TO 30:FOR B=100 TO 500 STEP A:SOUNO 2,B,1:NEXT B:NEXT A 


23 


1000 P=P+15xF 
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1010 
1020 


1030 


1040 
1050 
1060 
1070 


1080. 


1090 
1100 
1140 
11.20. 
11:30 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 


1220 


1230 
1240 


1250 


1260 


1270 


GOSUB 1040 

F=F+1 

G0TD 53077 rn a 

PEN $$1,0:PEN 1:LOCATE $1,2,2:PRINTR1,"PUNTOS: "¿USING 
RETURN 

H=4+TNT (2OXRNTO ;1=1+INT (RNOIX39) 

FEN 1:LOCATE I1,H:PRINT CHR*(164) 

SOUNN 1,100,1 

RETURN 

ENT 

REM xx CODE SCREENS xk 

NATA -205,96,187,50,47,117,201 - 

RESTORE 1120. : 

FOR a=30000 TO 30006:READ b:FOKE a,b:NEXT a 

RETURN 

REM OOOO IBIOIPIPIOIPIPIOTOK 

SYMBOL. AFTER 160 

SYMBOL:--160 946,48 ,31,63,127,247,227,231 

SYMBOL. 161,6,12,248,252,254,239,199,231 

SYMBOL 1672,255,248,124,63,63,202,219,2 

SYMBOL 163,255,31,62,252,252,83,219,216 

SYMROL 164,60,66,167,155,155,167,126,60 

SYMBOL” 65,255,255 ¿255,227 227,227 ,22 71,224 

SYMBOL 166,255,255,255,199,199,199,199,7 

SYMBOL 167,224 ,2274227/227/2274255 1,255,255 
SYMBOL. .168,7,199,199,199,199,255,255,255 
RETURN 
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330 PRINTS Aé$="DIBUJA DE UNA FORMA MUY ESPECIAL :":GOSUB 270 
340 Af="!!! CON INERCIA 


dE 


10 REM xXXX AL 2d 1 — 


20 REM ok ANGEL GARCTA Fl. ¡k 
OOOO 


30 REM ela TS: 
40 REM 


á 
j 


70 PAFER O: RORMER O 
80 ORTGTN 318, 210 


SO. MOE O A e = 
260 INE. 0,0: INE 1,26: TNK 


90 FOR a=0 TO 2XPI STEP F1/70 


2100 PLOTO Le e 


110 TRAW 300xXCOS(a), 
120 TIRAWR O ,3OXSIN (a 
130 NEXT a | 


140 PRINT CHRS (22) 4CHRE O) y 
1150 LOCATE. bt? 1 E 
2160 FRINT "INER= TIRAW" 

170 FRINT CHRE(22)+CHRE (0) 5 


180--INK--2:,7-¿O8-TNK--2., 


1: 
» 


”" 


oO 


SOXSIN (a) 
13 


+8. 


190 FOR a=1 TO 300: SOUND 1,8, 1, 


200 TNE 2,18,7:1Nk 3,7,18 


210 FOR a=300 TO 1 STEP -2:SOUND 


220 INE 2,7: INK 3,18. 
230 FOR a=1 TO 500: NEXT a 


240-FAR-a=0- TO SO+PRINT CHR$(7) +FOR b=1 TO SO:NEXT biNEXT a 


250-MOJIE 1 
260 GOTO 310 


270 FRINT TAR(20- LEN(as) /2) ¿FOR a=1 


280 bi= MUECA, A 11) ¿FRINT b+jp: 


2290 NEXT a 
(300 PRINT:PRINT:FOR a=1 TO 


200 ¿NEXT 


pa 3,18. 


i 

i 

| 

j 

$ 

¡ 

QA 

; 
| 

1 


+ 
i 
¿ 
: 


E 
5 
¿ 
1 


A5S:NEXT a. 


e Ll Lo cd 3 


1,a,1:SOUND 2,2X2,1:NEXT a. 


TO LEN(a$) 
o AS 


Pa A A 


310 REM xxxk INICIO MEL PROGRAMA *kxxkx 
320 ad="<%2 INER— ORAW 33)" :GOSUE 270. 


111% :GOSUR 270 


(350 Af="VERAS QUE RESULTADOS CONSIGUES" : 


360 PRINT: Af="SI SUELTAS LAS TECLAS LOS REBOTES" :GOSUB 270 
2370 As="DEL CURSOR MIBUJARAN UN ENTRAMADO." :GOSUB 270 


-380 FRINT:A%="0.,A.0 .F. MUEVEN EL CURSOR" :GOSUR 270 


390 At="R. BORRA LA PANTALLA" 


400 As="F. FINALIZAR” :GOSUB 270 
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E 
: 


:¿GOSUE 270 


il 


:¿GOSUB 270 


TY ..> 2 DEALPS a o t 
E E EE EE E ES E E RARE 


dsd | 


E O E A A A 


E 
¿ 


a 
j j Y 
i i i 
| i ¿ | : 
A a a e A Q 
Í H E É 
od nl j ¿ e. 
i i ' 
H ¿ y 
| 
HEAT 
j ¿ 
3 : a 
| | a 
> > h 
t PA, AI, NO O E O PS 
| 


E 


A A A SS 


AAA HA AAA AAA 


HH RA + 


Ey E 


10 P PRINT: ippo -e- PARA. EMPEZAR". DU E q 
O fe" O 0 A A 


> 
de : 
o 430 TF TNKEY(A40)<> Lt 6OTO 430 A 


440 MOE 2 e 0 
450 ORIGIN dolido | ale 
"60 PLOT0,0 E 
470.x=0 1 1. all Ll BENE | | | E 
480 y=0 i | | i nn "1 : | pa S | 
490 x1=0 | 11 ¡ : : O pe E E. | i 
500 yi=0 


¿o B20- TF TNEFY (69)=0 THEN Ane -1F Yiz—8 THEN yi=-8 A DS | L i 
O. TE..TNE E rue A kir1:1E es ¿-8 THEN xi=-8_ 1 


A AS 


TF TNKEY(27)=0 THEN xi=xi+1:1F x1>8 THEN $ :1=8 | i | | 
EY (50 HEN RUN 440 O | 

7? ACBOTO PS0 po = Í an e a O E 4 OS A A q- E + E ES. 
: E ado dd A | | | | 
s8o- 23300 THEN x o o pe 
590 le x=300- THEN xi=xi. l | | | L e. | i Ll 
a 20. THEN yis=yi HE e al | | | | 


BE Er RA O 


610 1F. y J THEN ui=- yi 


Ml 
| 
| 


i 


ESE ES SEE z 


¿ 
! 


A 11 uml HOK HUESOS. A a a e li o oi E AP 
20 REM xk O O na q i A MR | 
30 REM Xx lat GARCIA xx | | | i | 
40 REM Xx ko: 
SO REM Xxx  G. T. ST a | | 
3 60 REM a A + e TE ME loo O l- A o A A A A e 9 E O A O O 
70-INK-O ¿03 TnK 1,26: INKk 2,8 A np 
80 BORDER O:PAPER OFPEN 1. MAME MAMNUAAANAS | a 
¡ ] i i ¡ : o] 


E A A O E 


¡ ¿ 4 : j 4 
E A O E O E | E | E MN 
MENE A MU | PA ha joldot AMSTRAD - 23 


IS E A AR A BO A E ds E A IEA RS. IS E SA E E A PA O A A A O A e O 


90 MONME O 

100 ORIGIN 310,200 

110-FOR-A=0 TO 2xPI.STEF PI/SO, od 

120 FLOT 0,0,2:DRAW SIN(A)x(150+RNDx180) ,COS (A) k (BO+RNOIK160) 
130 NEXT A ¡ 

140 FRINT CHRE (22) ¡¿CHRE (1) 

150 SPEED INE 30, 0, 1 

160 LOCATE 8,13:PEN 1: FRINT "HUESOS" 
170 TNE 2,8,0 p 

180 RESTORE 1020 | 

190 READ. A,R:IF A=-1. THEN GOTO 180 

200 F=440Xx (27 (B/12)) ¿T=ROUND (12500/F) 

210 SOUND 1,T1x5,0x10,15 

220 SOUND 2,Tx3,Ax10,1 

230 TF INEFEYE<03"" THEN 250 ; i 

240 GOTO 190 . 4 E ; " e 7% | 

250 REMO Xxx MENU xxx 

260 MOTE 1 

1270! INK' 3,11 

280 INK 2,8 

2290 ORTGIN 0,0:DRAWR 600,0,1:0RAWR 0,399:TIRAWR -600,0:DRAWR 0,-399 
300 WINTION 8,32,6,27 

310-PRINT:" "SPRINT" he 

3720 PEN B¿FRINT "*x*x*X*X ELIGE TU OPCION *xkXX" 

330 FRINT " " 


340: FEN 13PRINTO ,S 1. CUESTIONARIO" 
350 FRINT " 

360 FRINT "” 2. LISTAR MATOS" 
ITOPRINT O" ; 
380--PRINT-L.- Go TERMINAR" 


390 PRINT ". " 

400 FPRINT" " 

410 PEN B2PRINT Nadal laROlalOIolOlOJoJJA" 

4720 1F INKEY(64)=0 THEN GOTO 460 

430 JF INKEY(65)=0 THEN GOTO 880 : je 
440 IF INKEY(57)=0 THEN MODE 1:CALL O | 
450 GOTO 420. | | 
460 REM xxxx*x CUESTIONARIO XxXxkxX 

470 MODE 1:INK 1,26:INK 2,20: INK 3,8 

480 FOR P=1 TO 20 


490 MODE 1:PEN 1:PRINTMaddOoo HUESOS DEL CUERPO HUMANO AddI0IOKXK" 

500 N=INT (RNDX3) 

510 IF N=6 THEN RESTORE 960 

520 IF N=1 THEN RESTORE 980 

530 IF N=2 THEN RESTORE 1000 

540 READ R$,NN:NN=INT (RNDIKNN) ¿FOR Z=0 TO NN: READ I$:NEXT Z 

550 PEN 3:PRINT" " 

560 PRINT"PREGUNTA:"5¿P¿TAB(17) 3 "HUESO: ";I$ 

570 PRINT " "¡PEN 2 

580 PRINT " " 

590 PRINT "A QUE PARTE PARTE DEL CUERPO CORRESPONDE"¿:PRINT " "*PRINT" 
EL HUESO CITADO: " 

600 PRINT" "¿PRINT" " 

610 FEN 3:PRINT " (PULSA 1,2 o 3)" 

620 PEN 1:PRINT " " 

630 FRINT" ":PRINT 

640 PRINT" ":PRINT 

650 PRINT" "¿PRINT 

660 SOUND 1,100,10 

670 REM 


1. CABEZA (Y CUELLO)" 
7 2. TRONCO (TORAX-ARIOMEN) " 
3. EXTREMIDADES" 
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na nan anmao Y m DRNA 7 7 -D-7- DD DY 


¿UU O0OVO AJUDA UUOULUE 


680 TF TNEFY(44)=0 THEN NR=0:GO0TO 720 

690 TF INEEY(65)=0 THEN NR=1:GOTO 720 

700 TF TNEFY(S57)=0 THEN NR=2:GOTO 720 

710 GOTO 470 

720 PEN 2:FRINT O" "¿PRINT" "TF NR=N THEN PRINT "!'! "CORRECTO!!! LA RESPUESTA ES 
"GRESFOR B=1 TO 3:FOR A=15 TO O STEP -1: INE 0,A:SOUN 

DO 1,8,1:NEXT A,R:AC=AC+1 E 
730 TF ONR<3N THEN PRINT "INCORRECTO. LA RESPUESTA ERA "¿R$:SOUND 1,600,100:FOR A 
=1 TO 100:PLOT RNMIX600,RNDOx400:NEXT A 

740 NEXT FP 

750 MOMF O:FOR A=1 TO 15: INK A,27-A:NEXT A 

760 PEN S:¿PRINT "*xxkxk RESULTADOS xxxkx" 

770 PRINT" "“PRINT" " 

780 PEN 2:PRINT "  ACITERTOS....."A0 

790 FRINT "o" 

800 FEN 3:PRINT O"  FALLOS......."320-AC 

810 PRINT" “¿PRINT" ":PRINT" " 

820 PEN 1:PRINT" PORCENTAJE :"¡00x5¿"%" 

830 PRINT" ":PRINT" ":PRINT" " 

840. PRINT MROOIAOIO OOOO lJPIPJoROIOJOJÁ! 

850 FOR A=0 TO 100:A$=INEEY+:SOUNO 1,0,1,15:NEXT A 

860 TF INEEYS=""THEN 860 

870 GOTO 250 

880 MODE 2:RESTORE 960 

890 FOR A=1 TO 3 

900 READ A+,N 

910 PRINT "- "¡asp "i"oPRINT"O" 


920 FOR B=1 TO N:READN Bé+:PRINT " "BF, 2:NEXT E 
930 FRINT" "aPRINT" "“¿FRINT O" " 
940 NEXT A 


9530 GOTO 850 
960 DATA CABEZA, 15 
970 TIATA PARTETAL , TEMPORAL ,FRONTAL ,OCCTPITAL ,ETMOIDES ,ESFENOIDES ,MANTDITEULA NASAL 


¿UNGUTS ,CORNETES ,POMULOS ,PALATINO ,MAXILAR ,VOMER ,HIOI 
DIES 


980 DATA TRONCO,10 l Ea mm. 
990 DATA VERT. CERVICAL ,VERT. LUMBAR,VERT. DORSAL ,VERT. SACRA,VERT. COXIGEA,C. A 


RTICULADAS,C. VERMADERAS,C. FALSAS,C. FLOTANTES ,ESTE 
RNON 


1000 DATA EXTREMITIADES,22 

1010 DATA CLAVICULA ,OMOPL.ATO ,HUMERO ,CUBITO,RADTO,CARFO,ESCAFOIDES , SEMTLUNAR ,FPIRA 
MTTAL ,PISTFORME , TRAPECIO, METACARFOS,FALANGES, ILEON, 1 
SQUTON,PURIS,FEMUR,TIRTIA,PERONE ,ASTRAGALO ,CALCANEO ,ESCAFOIDES 

10720 TIATA 8,4,4,5,4,7,4,7,4,5,4,4,4,2,4,0,4,0,4,2,4.4,8,4,2,2,8,2,8,4,4,5,4,7,4, 
7,14,5,4,4,4,2,4,0,4,0,4,2,4,4,8,2,2,0,9,0 pan 

1030 MATA -1,-1 
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BOO INE 2 


4 
Él 


10. REM a NUCLEO. ENERG GETI CO_XxAx 


20 REM Xx ANGEL GARCIA D nELG SADO kx 
30 REM | 
40 REM po == | 
SO. ¿MODE £)....1 ¿ j 


60 TINE O. ,0:TNK 1,26: INK =ñ 2,7:INK..3,18 


70 PAPER O: RORTIER O 

BO ORIGIN 318, 210 4 | 

90 FOR a=0' TO 2XPI STEP P1/70 

100 FLOT.0,0, | | i 

0 TRAÁN- ROORTOS (a) ss Sida id | US UE A A e 

120 TIRAWR 0,30XSIN(a), | Eo | 

130) -MEXT al... E! Dt 7 

140 FRINT CHRE (27) ECHRE (O | | al 

IAN A IS A A 

160 FRINT "NÚCLEO" E | | 

170 PRINT O CHRE(22)+CHRE CO); e | 

180 TINE ¿O PNK-B0318 bt | 
4 a 300':*SDUND:- 1,8,1,15:NEXT a 

703] 3,7 18 1 1) E A 


3 
190 FOR a=1 


1 


210 FOR a= 
220 TINE 2 


,73TNE 3,18 
230 FOR a= 


TO SOO:NEXT a pp O 


AO 


240 FOR a=O TO SO:FRINT CHAS (7) FOR | b= -1 TO SO: ¡NEXT b: NEXT a 


. 250 -MONE- A o m pm a ml 1 q, A tu 
260 GOTO 310 | um | LS 
270 FPRINT TAR(20- LEN (as) /2) 1 FOR la=1 10 LEN(az) 


Í 


N UCLEO ENERGETICO 


¿ 


300 TO 1 STEP -2:SOUND 1, ,1:SOUND 2,2X2,1:NEXT a 


¡ 


280 b+= =MTNE Car, ay 1) :PRINT bes: 1F b333" " THEN PRINT CHR$ (7) ; 


290 NEXT a | | 


o 
| 


310 REM XxX TNICTO DEL PROGRAMA kXxk ¡ 
320 A$="<% NUCLEO ENERGETICO >>":GOSUB 270 


300 PRINT:PRINT:FOR a SITO ZOO NEXT A ARETURN 


330 FPRINT: As="DEFTENDE. TU NUCLEO ENERGETIC O" :GOSUB 220. 


340 As="DE LOS ATAQUES DE LOS _ALIENIGENAS" si GOSUE PO y 


350 A$="KFL PLANETA MRAKOV" :GOSUB 270 úl 
360 PRINT: pse"LosS CONTROLES SON:":GOSUB 270 
370 Af="0. ARRIBA. A. ABAJO" :GOSUE 270. | p 


380 At="0. CTZQUIERTIA ERECHA" :GOSUR 270 p 


E 


ups LE A z0 THEN 400 ¿ -L] UU. 
E | E AO] | | 
A nu | ¡ 

j ÉS 
: 
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Pm A A O A A PA, PO. A CE 


¿ : ¿ 

j ¿ ] ¿ 3 

j á 13 3 ; j E d 

¿ i H i É : j ¿ 

3 ¿ j 

A a A A a Dd Pa E: PEA A A 


¿ 


—39P—PRINT + A="PULSA- E PARA EMPEZAR" SOS 2 PO lic 


E A E PE 


¡ 
j 

p pa 
li da 
| | 


j 


A 


es | 


A 


Pa 


+70 


440 mane 4 
50 E 1,10, A ES! 10, cam 


01 7 


he cebo brlrs diebal 


a 


590 A 


6104 
620 LE 
63 


pe 


680 1F 


$=08: (GOSUB. 970: :AS= =Es: :G0SU 


580 NE 


600 FEN :3:G0SUE 740 


640 TF INEFY(34)= 


a] YE 


10: Y=5 P 


XT A ¡NENAS 
+ ARAN 


+teo tE 50 THEN A=t- np 
INKFY (67)=0 THEN. X=X-=1:1F. 
INKF Y (69)=0 THEN X=X+1 


E=1 a del ds 6 84c 


A a | 


> 


JE 
Do” 
Dd: 980 XxX 


qua LO 


790 LO 


A Aa hara! TE 


830 RF 


840 F 


RN 


870 RE 


ES 


890 RE 


-p4p- -EY 


970. PR 


710 XB=X:YB=Y" 
EN 726 SOUND 4 ¿100 
2730 BOTO 600 | 
A 740 JAVA Delante 2) ¿LOCATE 
760 1F XMc1o 
770 TF Ymc2 
780 1F. 


820 bl (A, DO=XMEMIA 2 = YM 


860 ue A:A=1: ¿RETURN 


AUR R AROSA 


120,5 5+00/3,0,1 o, ENE | E 
rm, XM: 


> THEN Y=Y-1:1F Vea FUE en 
2650 TF INKEY (27) =0 THEN Y= (=Yi1 IF Y 
660 LOCATE Y, 
LO ha C=0 THEN e id 
N 


PPEPpr 


RINT" dio 


HEN TF ANDSO.5- THEN "XMEXM=1 
HEN TF ORNIDI30.5S THEN XM=XM+1 
[HEN _1A. NDSO.5 THEN YM=YM+1. 
ANps0:S 5 THEN YM=YM-1- 

30 O +C5PEEK (299 


YM 20. 
CATE YM XM: CALL 


EN GOSUE 1040 
N-3:LOCATE YM,XM: :PRINTO mr cón) 


TURN | | 


A 28 al de qe 
850 ESILICE PA THEN q M(A,2)=Y THEN SOUND 


L. mojo 


Moo CONE SCREENS xx 7 


1.20 25, 
-_. qero Uri 6 En 


TA 205,96,187,50,47,117,2 201. Lo UNE 


STORE. 880.1... 
a=30000 TO 30006 : :READ 


,165,21 
,189,2: 
dl 162,0,36, p,90,S ,36, ¡365 


O; 36,0- 


Prats l EX Ea 
INT_TAR(20-LEN 


| 
| 
900 FOR bi POKE a,b: ¡NEXT a 
910 SYMBOL AFTER 160 Ml 
920 SYMBOL 160,126,21' 
-930 SYMBOL 161,255,1 


p 
pe 


1 
| pa 


: 
' : 
A 


,219,165,219,12 '; ES 
+255,129,255,66,2311 


| 
do. 
4 


CATE DS 


E 
mal | 
Ll 

l 
l 


F 


PR] 


modo 


R 
_ 


T: Ei 
EG 


Se 085 108 0 E BR 


APER o PEN 


Ñ 
| 
| 
de 


1 


2. 


AA E E E A SS 
a. : E 


1000 1F PFEEK(29999):<:32 THEN GOTO 980 

1010 M(A,1)=XX:M(A,2)=YY 

1020 LOCATE YY,XX:FEN 3:PRINT CHR*+(161) 

1030 RETURN 

1040 REM xXx MUERTO *xkX 

1050 XM=M(A,1) :YM=M(A,2 

1060 FOR Z=1 TO 200 STEP 10:SOUND 2,72,2,15,0,1:NEXT 2 

1070 CO=CO-2:INK 2,00,C0+3:IF CO<1 THEN GOTO 1090 

1080 RETURN 

1090 REM Xxx GAME OVER kxxxk 

1100 FOR A=1 TO 20:FOR B=100 TO 200 STEF A:SDUNO 1,8,1,15,0,0,31:NEXT B:NEXT A 
1110 TNE 0,0: TNE 1,26:TNE 2,15,0:PAPER O:BORDER O:FEN 1:MODE 0 
1120 PEN 2:LOCATE 4,7:FPRINT"GAME OVER" 

1130 PEN 1:LOCATE 4,12:PRINT"FUNTOS: "¡USING "444444" ;P 

1140 PEN 3:TNKE 3,15:LOCATE 5,17:FRINT "OTRA? (S/N)" 

1150 FOR A=1 TO SO0:Af=TNKEY+:NEXT A 

1160 FEN 14 


1170 IF. TINEEY(60)=0 THEN RUN 250 
1180 TF TNEFY(46)=0 THEN CALL 0 
1190 GOTO 1170 


ES 
> 
Es] 
RIA O 
a 


. O 
A 

o PLY LR 

ES EXP 


NAUFRAGO 


10 REM xxx NAUFRAGO XXX 
ZO REM Xx ANGEL GARCIA * 


30 REM KXxXXX G.T.S. XXkX 

40 REM 

So MONME 0 

60 INE O,OsTNK 1,26: TNK 2,7: INE 3,18 
70 PAPER O:BORTIER 0 

80 ORIGIN 318,210 

90 FOR a=0 TO 2xXPI STEP P1/70 

100 PLOT 0,0,2 

110 TIRAW 300XCOS (a) ,1S5OXSIN(a) 
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PPRRRRRROPRRRRRRRRRRRRSEIERR?RR?RN 


YO OOOE OJO YI YOU YO YO YYOyUO OO 


120 UÚRAWR 0,30XSIN (4) ,3 

130 NEXT a . 

140 PRINT CHRS (22) +CHRE (1) 5 

150 LOCATE 7,12 

160 FRINT "NAUFRAGO" 

170 PRINT CHRE (22) 4 CE: - 

180 INE 2,70: TN" 3,0,18 : 
190 FOR a=1 TO 300:SOUND 1,a,1,13 ¿NEXT e 

200 INE 2,18,7:1NK 3,7,18 

210 FOR a=300 TO 1 STEF -2:SOUND 1,a,1:SOUND 2,aX2,1:NEXT a 

ZZO TINE 2,7:TNK 3,18 

230 FOR a=1 TO SOO¿NEXT a 

240 FOR a=0 TO SO2¿FRINT CHRE(7) :FOR b=1 TO SO: NEXT b:NEXT a 

2530 MODE 1 

260 GOTO 310 

270 PRINT TAB(20-LEN(at)/2) :FOR a=1 TO LEN(az) 

280 b$=MIDO$ (as,a,1) ¡FPRINT b¿sI1F b$<5" " THEN PRINT CHRE(7); 

290 NEXT a 

300 FPRINT+PRINT:FOR a=1 TO 200:NEXT a:RETURN 

310 REM Xxx INICIO DEL PROGRAMA xxx 

320 Af="<<% NAUFRASO >>":G0SUB 270 

330 PRINT:A$="RECOGE LAS PROVISIONES QUE TE":GOSUB 270 

340 A+="ENVIA EL AVION PARA QUE SORREVIVAS" :GOSUR 270 

350 AF="AL NAUFRAGTO, HASTA QUE VENGA" :GOSUE 270 

360 A$="UN BARCO A RESCATARTE" :GOSUR 270 

370 PRINT:A+="CONTROLES ME TU BARCA:":GOSUB 270 

380 A$="FJ. MUEVE A LA IZQUIERDA" :GOSUR 270 

390 Aét="F3. MUEVE A LA DERECHA" :GOSUE 270 

400 FRINT:A3="FULSA -S- PARA EMPEZAR" :GOSUB 270 

410 IF. TNEEY(60)2<%0 THEN 410 

420 ENT 1,10,1,1,10,-1,1 

430 GOSUB 720 

440 TNE 0,232FAFER O:RORDER 23:TNE 1,0:PEN 1:MO0DE 0 

450 TINE 2,4: TNKE 3,6: INE 4,14: INK 5,26 

460 WINTION +$1,1,20,24,235:FEN $1 ,5:FAFER $1,4:WTNTDIOW $2,1,20,19,25:FAFER $2,4:CLS 
H2 

470 AC=0:+FA=0:G0SUR 660 

480 pa=lixp=5:iyp=5 

490 y=B 

500 xa=1+TNT (RNMIX10) 2ya=0 

310 TF TNEEY(132=0 THEN y=y-1:IF y22 THEN y=2 

320 TF TNERY(20=0 THEN y=y+1:1F y>18 THEN y=18 

530 EVERY 50 GOSUB 830: 

340 LOCATE y-1,18:FEN 3:FRINT bag 

350 ya=ya+l LF yas17 THEN LOCATE ya,xa:PRINT "  "ixa=1+INT(RNDIX10) :ya=1 
360 LOCATE ya, xa:FEN 1:FRINT avi 

370 SOUNOE 1,800,10,10,0,1,31 

580 ON pa GOSUR 600,620 

590 GOTO 510 

600 IF RNO*0.9% THEN pa=2ixp=xa+1 :yp=ya+2 :¿SOUNO 2,100,10,15 
610 RETURN 

620 LOCATE yp+y:paFRINT" "iexp=xp+1:LOCATE yp,xp:FEN 2:PRINT pcs 
630 IF *p*16 THEN LOCATE yp,xp:PRINT" ":“LOCATE YP)p+1LiGPRINT" "spa=1l:ifa=fa+1 :SOU 
NO 2,400,20,15:G0SUB 660 

640 TF xp=1% OR xp=16 THEN IF yp=y OR yp=y+1 THEN SOUNO 2,200,20,13S:ac=ac+1] :GOSIU 
B-660:LOCATE yp,:p:PRINT" ":LOCATE ypyxp+1:FPRINT" ": 

pa=1 

630 RETURN 

660 LOCATE +$1,4,1:FRINT +1,"AC: "¿USING "$$" :00 

670 LOCATE +$1,13,1:PRINT +$1,"FA:" ¡USING "$$" ¡FA 
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P=ACKIS:FOR A= 
OTO 840 

'MBOL Arte] 1 
SYMBOL 160,224 


E Curs cr 
a 63) +" m4 ¿ 


2,BD1 9: na] 


os OVER a em MON 
ll O 200 TEP A :SOUND 1,B,1, is| 0,0, 
2,15,0:FPAPER O: «BORDER OPEN 1: ¿MODE ó 


Eno CATE” Dd PRINTUGAME OVER". 


-OCATE 4, 12:PRINT! 'PUNTOS :" ¿USING cer - 
INK-3,15 SILOCATE 5, 17:PRINT-" "OTRA? (S/N) 
1 TO.SO:A: =]NKEY£RNEXT Pos ajess id 6 


THEN Ed 
HEN CALL O 


lec 


60 REM 


180 RE 


200 F= 


440 IF. 
450 GO 
460 RE 


MO 


1 E E | 
530 1F 


—b610-PE 
620 FE 


Le 0 


70-INK 
-80. RORI 


LOCATE 7 
TORE 10 o 
190 REA 


-210 SOUND 1 ¿TKS 
a SOUND 


INKEY (85) =0 ads 


470 MODE 1: TNK- 
FOR P=1 TO 


N=1 THEN | 


630 PRINT" E NT" E | 
640 a si 4 UB ae 2 


— | | EE | 
o ¿Os NH Es 26; INE 2,8 i | 
ER Os PAPER O%PEN 1: | | 


0 a 0 =r 2xP1 STEP PI/S 0 


EXTAr 
'TNT-CHR$ (22)4CH! 


moss 


00 oca) + (BoFmNDR1Ao) 


TO ,0,2:MRAW ici o 


HE A m4 
En Os 30... 


TNE 51 
y 1B3PEN Ad ¡PRINTO 


MI A,Bs1F A==1 THEN GOTO 


40X(2"(B/12 


Ls TAR Axio, 


> e «. in 


coo 


(0 agil 


Acid mi 


ERAS S A ES 


OPCION 


le q 


| 
4 
j 


En 


riego E 


h 


=0 THEN GOT 
GOTO 180 
INKEY (5 FO, THE 


FE. 1: ¿E ¿PRINTRO 

NT (RNDIX3) 

) THE RESTORE 960 
RESTORE 


N=2 THEN RESTORE 1000 


AO 


ERE 1 ¿CALL O. 


q 


580 TIRÉ 
:NN= ENT (RNDANNT1FOR l= =0 10 NN: READ 1$: dE Z 


s7 pa pt A 


A QUE ¿BAQTE Pare DEL CUER 


| . 
-! 


lo siem andina a 


PP 


ds 


< TRONCO. 


+ 
4 


6-3 


(TORA 


] CABEZA. Y BESaSE 


ABDOME! 


650 PRINT" ":PRINT " 3. EXTREMIDADES" 
660 SOUNO 1,100,10 
670 REM 


680 TF TNEFY(64)=0 THEN NR=0:GOTO 720 

690 1F INEEY(65)=0 THEN NR=1:GOTO 720 

700 TF INKEY(S7)=0 THEN NR=2:GOTO 720 

710 GOTO 670 

720 PEN 22PRINT " ":¿PRINT" ":1F NR=N THEN PRINT "!!' "CORRECTO!!! LA RESPUESTA ES 
"¿RSSFOR B=1 TO 3:FOR A=15 TO O STEP -1:INK 0,A:SOUN 

DO 1,0,1:NEXT A,BR:AC=AC+1 

730 TF NR<3N THEN PRINT "INCORRECTO. LA RESPUESTA ERA ";¿R*$:SOUND 1,600,100:FOR A 
=1 TO 100:PLOT RNDx600,RNIx400:NEXT A 

740 NEXT P 

750 MOM O:FOR A=1 TO 15: INK A,27-A:NEXT A 

760 PEN S:PRINT "*Xx*xkk RESULTADOS *xkkx" 

770 PRINT" ":¿PRINT" " 


780 PEN 2:PRINT " ACIERTOS..... "¿AC 
790 PRINT " " 
800 FEN 3:PRINT "  FALLOS....... ";20-AC 


810 PRINT" ":PRINT" "¿PRINT" " 

820 FEN 1:PRINT". PORCENTAJE :"¡ACX5 0" 

830 PRINT" ““¿PRINT" "¿PRINT" " 

840. PRINTS lllPlPjPlPIPI ORO" 

850 FOR A=0 TO 100:A%=INKEY*:SOUNO 1,0,1,15:NEXT A 

860 IF INKEY=""THEN 860 

870 GOTO 250 

880 MODE 2:RESTORE 960 

890 FOR A=1 TO 23 

900 READ AF,N 

910 FRINT "- "sar" "“GPRINT" " 

920 FOR B=1 TO N:REAN BR:PRINT O"  ";¡E*%,:NEXT E 

930 ERINT" ":PRINT" "“FRINT O" " 

940 NEXT A 

950 GOTO 850 

960 TMIATA CAREZA,9 

970 MATA TEMFORAL.,MASETERO,FTERIGOINDEO ,ORBICULAR , SUFERCILITAR ,BUCCINANIOR ,L. INGUAL., 
ESTERNOCLETNOMASTOTNMEO ,CUTANEO j 

980 MATA TRONCO,B8 : 

990 DATA FECTORAL ,SERRATO, INTERCOSTAL ,RECTO,OBLICUO , TRANSVERSO , CUATIRADIO ,DITAFRAGM 
A 

1000 DATA EXTREMIDADES, 18 

1010 TATA DELTOTOES ,SUFRAESPINOSO, INFRAESPINOSO ,RETIONDIO , SUBESCAPULAR,BICEFS,TRIC 
EFS ,RRAGQUITAL ,CUBITAL ,RANTAL ,SUFINADOR ,EXTENSORES ,FLE 

XORES ,SARTORTO,SEMJTENDINOSO ,TIBIAL ,FERONEOS GEMELOS: 

1020 NATA 8,4,4,5,4,7,4,7,4,5,4,4,4,2,4,0,4,0,4,2,4,4,8,4,2,2,8,2,8,4,4,5,4,7,4, 
7,14,5,4,4,4,2,4,0,4,0,4,2,4,4,8,2 1210,9,0 

1030 DMATA -1,-1 
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EL DOMINIO DEL AMSTRAD 
PCW 8256/8512 


“El dominio del Amstrad PCW 8256/8512” 
le sitúa en la vía rápida hacia el éxito en los 
negocios. Lo mismo si está Vd. empezan- 
do a utilizar uno de estos ordenadores, co- 
mo si está considerando comprárselo, es- 
te libro le mostrará rápidamente cómo ren- 
tabilizar al máximo su inversión. 


Una gran parte del libro trata del proceso 
de texto. 


Esta parte del libro es un medio didáctico 
excelente, que le conducirá desde los usos 
más sencillos del proceso de textos, a los 
más avanzados. Una sección aparte cubre 
el uso de NewWord, la potente alternativa 
de NewStarSoftware. 
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LS 
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DOMINE EL CODIGO MAQUI- 
NA EN SU AMSTRAD 


Ahora tiene la oportunidad de aprender a pro- 
gramar en código máquina en su ordenador 
Amstrad. Clive y Scott —dos programadores 
muy competentes, con gran experiencia en li- 
bros y software a sus espaldas— son los guías 
ideales para ayudarle a comprender las inte- 
rioridades de la programación en código má- 
quina del Amstrad. 


Debe ir trabajando en código máquina del 
Amstrad. 


Debe ir trabajando a lo largo del libro, saltán- 
dose las secciones que le presentan una es- 
pecial dificultad la primera vez que las lea. 
Cuando haya terminado su primera lectura, 
tendrá los suficientes conocimientos como pa- 
ra poder comprender aquellas secciones que 
dejó sin completar la primera vez que pasó por 
ellas. 


L 


> 
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ME 
o 


S 


CURSO DE 


BASIC + 


MICROORDENADORES 


) MI 
II 
IE 


A 


19? 


— Introducción a 
la Informática 
— Electrónica ¡con experimentos) 


S ONWNERTYJ 


El Curso CEAC a Distancia, > E 
BASIC + Microordenadores, — Fotografía 
le va a introducir paso W - Curso de Video 
a paso, con un cuidado = Decoración 
método, en uno de los temas más ESTAS ENSEÑANZAS SE AJUSTAN AL ART. 35 
apasionantes de nuestros días: DEL DECRETO 707/1976 Y ALA ORDEN MINISTERIAL DE 5/2/1979 
e ——>———_— >>» JE ————— A 


la programación de ordenadores. 
Al aprender PRACTICANDO desde un principio | GRATUITAMENTE 
a programar BASIC, lenguaje diseñado EE 

$ 4 deseo recibir a la mayor 


especialmente para dar los primeros pasos eb pe 
en programación, estará sentando las bases | brevedad posible información 
If sobre el Curso de: - 


para el estudio de Cualquier otro 
lenguaje de alto nivel 


o Nombre y apellidos Edad 
| Domicilio 
NO Piso Pta Tel. 
C. Postal Población 
Provincia 
CENTRO DE ENSEÑANZA A DISTANCIA Profesión 
ES CEAC. Aragón, 472 aras 3308 
aaón. 472 Dpto RE Ez USO Baena Vo ió, D. Barcelon? 


Tel.: (93) 245 3306 du 


